Test interactive-only spec of with-suppressed-warnings

* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-test--with-suppressed-warnings): Test suppressing warning
with interactive-only.

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 13cbedfe1f731f7ec48c7469a917bff8ffe3b693..e0a3cc2fb823000b8e29252397644fac0b7f0e89 100644 (file)
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -808,6 +808,12 @@ literals (Bug#20852)."
    '((obsolete obsolete-variable))
    "obsolete")
 
+  (test-suppression
+   '(defun zot ()
+      (next-line))
+   '((interactive-only next-line))
+   "interactive use only")
+
   (test-suppression
    '(defun zot ()
       (mapcar #'list '(1 2 3))